10 POKE53280,11:POKE53281,0:POKE646,15
90 POKE53272,23
100 IFQ=0THENQ=1:LOAD"V1.2",8,1
110 IFQ=1THENQ=2:INPUT"[147][203]OALANAME ";N$:N$="?PIC "+N$+"*":LOADN$,8,1
130 PRINT"[147]"TAB(14)"[212][210][193][201][204][197][210] [214]1.2"
131 PRINTTAB(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
140 PRINTTAB(8)"(C)BY [212]HE CRUSADER C.I.C"
150 PRINT""TAB(8)"[208]RESS [201] FOR [201]NFORMATION"
151 PRINTTAB(19)"OR"
152 PRINTTAB(7)"ANY OTHER KEY TO CONTINUE"
160 POKE198,0:WAIT198,1:GETG$
170 IFG$="I"THENGOTO2000
180 INPUT"[147][206]AME OF MAIN-PROGRAM ";N$
190 P=2331:L=LEN(N$):FORI=1TOL:POKEP,ASC(MID$(N$,I,1)):P=P+1:NEXTI:POKE2286,L
200 INPUT"[195]OLOR OF GREETINGS ";P
240 POKE2360,P
250 INPUT"BACKGROUNDCOLOR OF GREETINGS ";P
290 POKE2437,P
300 INPUT"BORDERCOLOR OF GREETINGS ";P
340 POKE2133,P
350 PRINT"[212]EXT WHILE LOADING [205]AIN-PROGRAM"
355 PRINT"              NOW LOADING
360 [153]"    >                               <"
370 L[178]30:A[178]1589:[141]1000
380 P[178]2786:[129]I[178]A[164]A[170]L:[151]P,[194](I):P[178]P[170]1:[130]
400 [133] "LOAD(null)ECRET ATNDDRESS ";S
410 A[178][181](S[173]256):B[178]S[171]A[172]256
420 [151]2308,A:[151]2307,B
430 [133]"(null)ECRET BYTE ";S
440 [151] 2305,S
450 [133]"ATNDDRESS OF LOAD-ROUTINE ";S
460 A[178][181](S[173]256):B[178]S[171]A[172]256
470 [151]2269,A:[151]2268,B:[151]2277,A:[151]2276,B
480 [153]"(null)HE WAY OF STARTING THE MAIN-PROGRAM"
490 [153]"    1 - (null)(null)(null)     OR    2 - MID$(null)(null) ADR."
500 [151]198,0:[146]198,1:[161]G$
510 [139]G$[178]"1"[167]560
520 [139]G$[179][177]"2"[167]500
530 [133]"THE ADDRESS ";S
540 A[178][181](S[173]256):B[178]S[171]A[172]256
550 [151]2309,76:[151]2311,A:[151]2310,B
560 [133]"LOAD(null)AME OF LOADER ";N$
570 P[178]49221:L[178][195](N$):[129]I[178]1[164]L:[151]P,[198]([202](N$,I,1)):P[178]P[170]1:[130]:[151]49193,L
580 [153]"ATNND NOW ENTER THE GREETINGS."
590 [153]"(null)LEASE GREET C.I.C IF YOU USE THIS"
600 [153]"FINE LITTLE PROGRAM."
610 A[178]1385:L[178]213:[151]A[171]1,62:[151]A[170]L[170]1,60:[141]1000
620 P[178]2562:[129]I[178]A[164]AA:[151]P,[194](I):P[178]P[170]1:[130]:[151]2549,AA[171]A
630 [153]"LOAD      (null)HE LOADER IS READY TO SAVE"
640 [153]"              (null)RESS ANY KEY
650 POKE198,0:WAIT198,1:GETG$
660 SYS49152
1000 REM A:BILDADRESSE, L:MAX LAENGE
1010 AA=A:LL=L
1015 POKEAA,100
1030 POKE198,0:WAIT198,1:P=PEEK(631):GETG$
1040 IFP=13THENPOKEAA,32:RETURN
1050 IFP=157ORP=20THENPOKEAA,32:AA=AA-1:GOTO1090
1060 IFP=147ORP=19ORP=148ORP=17ORP=145ORP=29THEN1030
1070 IFAA<L+ATHENPRINT"[144]"G$"[155]":POKEAA,PEEK(1024):AA=AA+1
1080 GOTO1015
1090 IFAA<ATHENAA=A
1100 GOTO1015
2000 PRINT"[147] [201]NFORMATION ABOUT [212][210][193][201][204][197][210][160][214]1.2"
2010 PRINT"[212]HIS PROGRAM IS MADE FOR PEOPLE WHO"
2020 PRINT"DON'T HAVE ANY TIME TO CREATE THEIR"
2040 PRINT"OWN LOADER TO LOAD PROGRAMS."
2050 PRINT"[212]HIS PROGRAM WAS REALLY WRITTEN
2060 [153]"BY C.I.C. RIGHT$'M HAPPY ABOUT EVERYONE"
2070 [153]"WHO GREETS ME IF SHE/HE USE THE PROGRAM"
2080 [141]3000
2100 [153]"LOAD (null)OW THE EXPLANATION
2110 PRINT"[198]IRST YOU HAVE TO ENTER THE NAME"
2120 PRINT"OF THE [203][207][193][204][193]-PICTURE TO SHOW."
2130 PRINT"[206]AME OF MAIN-PROGRAM : IS THE NAME OF"
2140 PRINT"THE PROGRAM WHICH WILL BE LOADED"
2150 PRINT"BY THE LOADER."
2160 PRINT"[193]T THE BOTTOM OF THE SCREEN ARE"
2170 PRINT"THE GREETINGS. [217]OU CAN CHOOSE THE"
2180 PRINT"COLOR OF THE"
2190 PRINT"[212]EXT , [194]ACKGROUND AND [194]ORDER"
2200 GOSUB 3000
2210 PRINT"[147][215]HILE THE MAIN-PROGRAM IS LOADING"
2220 PRINT"THERE'S A TEXT ON YOUR SCREEN."
2230 PRINT"[212]HIS TEXT WILL BE SHOWN IN THE SAME"
2240 PRINT"FORMAT AS YOUR INPUT."
2250 GOSUB 3000
2260 PRINT"[147][212]HE SECRET ADDRESS COULD BE AN ADDESS"
2270 PRINT"IN THE MAIN-PROGRAM."
2280 PRINT"[212]HE SECRETE BYTE IS THE BYTE OF THIS"
2290 PRINT"ADDRESS."
2300 PRINT"[193]FTER LOADING THE MAIN-PROGRAM THE"
2310 PRINT"BYTE WILL BE POKED IN THE ADDRESS."
2320 PRINT"[217]OU COULD USE THIS TO [210][213][206] THE"
2330 PRINT"MAIN-PROGRAM ONLY WITH YOUR LOADER."
2340 PRINT"[194]ECAUSE WITHOUT THE SECRET BYTE THE"
2350 PRINT"MAIN-PROGRAM KILLS."
2360 GOSUB3000
2370 PRINT"[147][212]HE ADDRESS OF THE LOAD-ROUTINE."
2380 PRINT"[201]T COULD BE THAT THE MAIN-PROGRAM"
2390 PRINT"HAS THE SAME MEMORY AS THE LOAD-ROUTINE"
2400 PRINT"SO YOU CAN CHOOSE THIS ADDRESS BY"
2410 PRINT"YOUR OWN."
2420 PRINT"[199]ENERAL IT'S 828 OR 256."
2430 GOSUB3000
2440 PRINT"[147][217]OU CAN CHOOSE THE WAY OF STARTING"
2450 PRINT"THE MAIN-PROGRAM."
2455 PRINT"  [210]UN OR [202][205][208]"
2460 PRINT"[206]AME OF LOADER  : IS THE NAME OF"
2470 PRINT"YOUR LOADER , THIS LOADER NEEDS"
2480 PRINT"43 [194]LOCKS."
2490 PRINT"[217]OU CAN USE 213 SIGNS IN THE [199]REETINGS"
2510 PRINT"":GOSUB3000:GOTO130
2999 END
3000 PRINT"       [208]RESS ANY KEY TO CONTINUE"
3010 POKE198,0:WAIT198,1:GETG$
3020 RETURN